home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / tutor / pro13 / names2.bas < prev    next >
Encoding:
BASIC Source File  |  1990-11-13  |  1.0 KB  |  36 lines
  1. 10 'NAMES2.BAS - Read in ten names from a disk file and store in memory
  2. 20 'From the GWBT06 Basic Tutorial Series 11/15/1990
  3. 30 '
  4. 40 'Variables used:
  5. 50 DIM NAMES$(10)
  6. 60 '
  7. 70 'Start of Main Program:
  8. 80 OPEN "NAMES.TXT" FOR INPUT AS #1
  9. 90 INPUT #1,NAMES$(1)
  10. 100 INPUT #1,NAMES$(2)
  11. 110 INPUT #1,NAMES$(3)
  12. 120 INPUT #1,NAMES$(4)
  13. 130 INPUT #1,NAMES$(5)
  14. 140 INPUT #1,NAMES$(6)
  15. 150 INPUT #1,NAMES$(7)
  16. 160 INPUT #1,NAMES$(8)
  17. 170 INPUT #1,NAMES$(9)
  18. 180 INPUT #1,NAMES$(10)
  19. 190 CLOSE #1
  20. 200 'Names read in, now let's print them to the screen and get a choice...
  21. 210 CLS
  22. 220 PRINT "1 - ";NAMES$(1)
  23. 230 PRINT "2 - ";NAMES$(2)
  24. 240 PRINT "3 - ";NAMES$(3)
  25. 250 PRINT "4 - ";NAMES$(4)
  26. 260 PRINT "5 - ";NAMES$(5)
  27. 270 PRINT "6 - ";NAMES$(6)
  28. 280 PRINT "7 - ";NAMES$(7)
  29. 290 PRINT "8 - ";NAMES$(8)
  30. 300 PRINT "9 - ";NAMES$(9)
  31. 310 PRINT "10- ";NAMES$(10)
  32. 320 INPUT "Enter a number from 1 to 10 for the desired name";NAMENUMBER
  33. 330 PRINT "Your selected name is: ";NAMES$(NAMENUMBER)
  34. 340 END
  35. 350 'End of program - NAME1.BAS
  36.